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-~ UserSegmen ts .Mesa 
-~ Edited by: 

Johnsson on August 30, 1978 12:02 PM 

Barbara on July 31, 1978 4:28 PM 

DIRECTORY 

AltoDefs: FROM "altodefs" USING [BYTE, BytesPerPage, PageNuniber, PagevSize], 

AltoFileDefs: FROM "al tof i1 edef s" USING [eofDA, FP], 

BcdDefs: FROM "bcddefs" USING [MTHandle, MTIndex], 

BootDefs: FROM "bootdefs" USING [PaqeMap, SystemTableHandle] , 

ControlDefs: FROM "controldef s" USING [ 

BytePC, FrameHandle, Global FrameHandle, InstWord], 
DebugBreakptDefs: FROM "debugbreakptdef s" USING [CodeObject] , 
DebugCacheDefs: FROM "debugcachedef s" USING [LongWRITEClean , Swappedin], 
DebugContextDefs: FROM "debugcontextdef s" USING [ 

DAcquireBcd, DReleaseBcd, Inval idGlobalFrame, 

MapRC], 
DebugData: FROM "debugdata" USING [ 

altoXM, config, DebuggeeFH, debugPilot, ESV, initBCD, mdsContext, onDO], 
DebuggerDefs: FROM "debuggerdef s" USING [LA], 
DebugMiscDefs: FROM "debugmiscdef s" USING [CommandNotAl lowed] , 
DebugUsefulDefs: FROM "debugusef uldef s" , 
DebugUtilityDefs: FROM "debuguti 1 itydef s" USING [ 

Bound, FindOriginal , LoadStatelnval id , LongREAD, LongWRITE, 

SREAD, SWRITE, Vi rtualGlobal Frame] , 
DebugXMDefs: FROM "debugxmdef s" USING [XMAl locOnDrum, XMFreeOnDrum] , 
FrameDefs: FROM "f ramedef s" , 

InlineDefs: FROM "inlinedefs" USING [LongDiv, LongMult], 
LoaderBcdUtilDefs: FROM "loaderbcdutil def s" USING [ 

BcdBase, EnumerateModuleTable, ReleaseBcdSeg, SetUpBcd], 
LoadStateDefs: FROM "loadstatedef s" USING [ 

BcdSegFromLoadState, Conf igNull , GFTIndex, 

Input LoadState, ReleaseLoadState], 
SegmentDefs: FROM "segmentdef s" USING [ 

AddressFromPage, DeleteFileSegment , FileHandle, 

FileHint, FileObject, FileSegmentAddress , FileSegmentHandle, 

FileSegmentObject , InsertFile, NewFi leSegment , 

PageFromAddress, Read, ReleaseFile, SegmentFaul t , 

SetEndOf File, Swapin, SwapOut, Unlock], 
SystemDefs: FROM "systemdefs" USING [Al locateHeapNode, FreeHeapNode] , 
VMMapLog: FROM "vmmaplog" USING [ 

Descriptor, PatchTable, PatchTableEntry, 

Pa tchTableEntryBasePo inter , PatchTableEntryPo inter]; 

DEFINITIONS FROM DebugUtilityDefs; 

UserSegments : PROGRAM 

IMPORTS DDptr: DebugData, DebugCacheDefs, DebugContextDefs, DebugMiscDefs, 

DebugUtil ityDefs, DebugXMDefs, LoaderBcdUtilDefs, LoadStateDefs, 

SegmentDefs, SystemDefs 
EXPORTS DebugMiscDefs, DebugUsefulDefs, DebugUtilityDefs 
SHARES SegmentDefs, ControlDefs = 

BEGIN 

BytePC: TYPE - ControlDefs . BytePC; 

BYTE: TYPE - Al toDef s . BYTE ; 

FrameHandle: TYPE = Contro IDefs . FrameHandle; 

GlobalFrameHandle: TYPE = ControlDefs .Global FrameHandle; 

FileHandle: TYPE = SegmentDefs . FileHandle; 

InstWord: TYPE = ControlDefs . InstWord ; 

CodeObject: TYPE « DebugBreakptDefs .CodeObject ; 

LA: TYPE = DebuggerDefs . LA; 

FileSegmentHandle: TYPE = SegmentDefs . Fi leSegmentHandle; 

-" Utilities 

CopyRead: PUBLIC PROCEDURE [to, from: POINTER, nwords: CARDINAL] « 
BEGIN 

i: CARDINAL; 

FOR i IN [0. .nwords) DO 
(to+i)t «- SREAD[from+i]; 
ENDLOOP; 
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RETURN 
END; 

CopyWrite: PUBLIC PROCEDURE [to. from: POINTER, nwords: CARDINAL] - 
BEGIN 

i: CARDINAL; 

FOR i IN [0. .nwords) DO 
SWRITE[to+i,(fromH)t]; 
ENDLOOP; 
RETURN 
END; 

LongCopyRead: PUBLIC PROCEDURE [to: POINTER, from: LONG POINTER, nwords: CARDINAL] - 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .nwords) DO 

(to+i)t 4- LongREAD[from+i]; 

ENDLOOP; 
RETURN 
END; 

LongCopyWrite: PUBLIC PROCEDURE [to: LONG POINTER, from: POINTER, nwords: CARDINAL] 
BEGIN 

i: CARDINAL; 
FOR i IN [0. .nwords) DO 

LongWRITE[to+i .(from+i)t]; 

ENDLOOP; 
RETURN 
END; 

User Segment: SegmentDef s . FileSegmentObject ; 

UserFileSegmentAddress: PROCEDURE[useg: FileSegmentHandle] 
RETURNS[POINTER] = 
BEGIN 

RETURN [SegmentDefs . AddressFromPage[ReadUserSegment[useg] .VMpage]] 
END; 

ReadUserSegment: PROCEDURE [s: FileSegmentHandle] RETURNS [FileSegmentHandle] = 
BEGIN 
CopyRead[to: ©UserSegment , from: s, 

nwords: SIZE [SegmentDefs .FileSegmentObject]] ; 
RETURN [QUserSegment] 
END; 

WriteUserSegment: PROCEDURE [s: FileSegmentHandle] =» 
BEGIN 
CopyWrite[ to: s, from: @UserSegment , 

nwords : SIZE[SegmentDef s . FileSegmentObject]] ; 
END; 

-- "Swapping Drum" and user code manipulation 

DrumltemHandle: TYPE = POINTER TO Drumltem; 
Drumltem: TYPE = RECORD [ 

next: DrumltemHandle. 

dseg: FileSegmentHandle, -- for segment on drum 

co: CodeObject, 

useg: FileSegmentHandle, -- in user space (Alto) 

oldBase: Al toDef s . PageNumber , 

oldFile: FileHandle, 

oldHint : SegmentDefs . FileHint]; 
diHead: DrumltemHandle *- NIL; 

endHint : SegmentDefs .FileHint; 
endPage : Al toDef s . PageNumber ; 
drumFile: FileHandle; 

MoveToDrum: PROCEDURE [f: GlobalFrameHandle, co: CodeObject] « 
BEGIN 

di: DrumltemHandle; 
LocateCode[f ] ; 

IF gfCache.seg // NIL THEN Al locOnDrum[gfCache . seg] . di . co ^ co 
ELSE IF DDptr.altoXM AND 

DebugUtil ityDefs.Bound[DebugXMDefs.X|V|AllocOnDrum] THEN 
BEGIN 
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IF (di<-DebugXMDefs.XMAnocOnDrum[f]) // NIL THEN di.co ^ co; 

END; 
FlushCocleCache[]; 
RETURN 
END; 

AllocOnDrum: PUBLIC PROCEDURE [useg: FileSegmentHandle] 
RETURNS [di: DrumI temllandle] - 
BEGIN OPEN SegmentDefs; 
p: DrumltemHandle; 
Ifo: FileObject; 

tfile: FileHandle « 01fo; -- copy of user file object 
tseg: Fil eSegmentHandle; -- copy of user segment 
dseg: FileSegmentHandle = MapUserSegment[useg]; 
old: FileHandle = dseg. file; 

di <- SystemDefs.AllocateHeapNode[SIZE[DruniIteni]]; 
di .next ^ NIL; 
di .dseg *- dseg; 

-- copy values from user segment 
tseg <- ReadUserSegment[di .useg <- useg]; 
di.oldBase «- tseg. base; 
di .oldFil e <- tseg. file; 
WITH t: tseg SELECT FROM 

disk => di.oldHint *- t.hint; 

ENDCASE => ERROR RemoteSegment[useg 

I UNWIND => SystemDefs.FreeHeapNodeCdi]]; 
-- remove segment from user's file object 

CopyRead[to: tfile, from: tseg. file, nwords: SIZE[FileObject]] ; 
tfile. lock <~ tfile. lock + 1; 
tfile. segcount <- tfile. segcount - 1; 

IF tseg.swappedin THEN tf il e. swapcount <- tf il e. swapcount - 1; 
CopyWrite[f rom: tfile, to: tseg. file, nwords: SIZE[Fil eObject]] ; 
-- move user segment to drum file 
tseg. file <- DDptr.ESV.drumFile; 
tseg. base *- endPage; 

"- reflect new seg and swap counts in users drum file object 
CopyRead[to: tfile, from: DDptr.ESV.drumFile, nwords: SIZE[FileObject]] ; 
tfile. segcount ^ tfile. segcount + 1; 

IF tseg.swappedin THEN tfile . swapcount *- tfil e. swapcount + 1; 
CopyWrite[from: tfile, to: DDptr.ESV.drumFile, nwords: SIZE[FileObject]] ; 
Swapln[dseg] ; 
dseg. write «- TRUE; 

-- update seg and swap counts for debugger's files 
old . swapcount ♦- old . swapcount - 1; 
IF (old. segcount <- old. segcount - 1) = THEN 

ReleaseFi le[old]; 
drumFile. segcount ♦- drumFi le. segcount + 1; 
drumFi le. swapcount ♦- drumFile. swapcount + 1; 
-- move drum segment to drum file 
dseg. file <- drumFile; 
dseg. base ^ endPage; 
WITH d: dseg SELECT FROM 

disk => d.hint ^ endHint; 

ENDCASE; 
endPage ^ endPage + dseg. pages; 
Unlock[dseg] ; 
SwapOut[dseg 1 

SegmentFault => 
BEGIN 

SetEndOfFile[ drumFile, endPage- l,AltoDefs. By tesPerPage]; 
RETRY 
END]; 
WITH d: dseg SELECT FROM 

disk => endHint ♦- d.hint; 

ENDCASE; 
WITH t: tseg SELECT FROM 

disk «> t.hint ^ endHint; 

ENDCASE; 
Wr i teUserSegment[useg] ; 
dseg. write <- FALSE; 
-- add new item to end of list 
IF diHead = NIL THEN diHead *- di 
ELSE FOR p <- diHead, p. next UNTIL p. next » NIL DO 

NULL; 

REPEAT FIN[SHED «> p. next ^ di; 

ENDLOOP; 
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RETURN 
END; 

FreeOnDrum: PUBLIC PROCEDURE [f: Global FrameHandle] « 
BEGIN 

IF DDptr.debugPilot THEN RETURN; -- Pilot code not on drum 
LocateCode[f ] ; 

IF gfCache.seg H NIL THEN RemoveFromDrum[gfCache . seg] 
ELSE IF DDptr.altoXM AND DebugUti 1 i tyDef s.Bound[DebugXMDef s . XMFreeOnDrum] THEN 

BEGIN 

DebugXMDefs.XMFreeOnDrurn[f]; 

END; 
FlushCodeCache[]; 
RETURN 
END; 

RemoveFromDrum: PUBLIC PROCEDURE [useg: FileSegmentHandle] » 
BEGIN OPEN SegmentDefs; 
Ifo: FileObject; 

tfile: FileHandle = ©Ifo; -- copy of user file object 
tseg: FileSegmentHandle; -- copy of user segment 
prev, di: DrumltemHandle; 
-- find item on the list 
prev ^ NIL; 
FOR di «- diHead, di.next UNTIL di « NIL DO 

IF di.useg = useg THEN EXIT; 

prev <- di ; 

REPEAT FINISHED => RETURN 

ENDLOOP; 
IF prev = NIL THEN diHead ^ di.next 
ELSE prev. next <- di.next; 
-- put old values back into user segment 
tseg *- ReadUserSegment[useg] ; 
tseg. file ^ di .oldFile; 
tseg. base <- di.oldBase; 
WITH t: tseg SELECT FROM 

disk «> t.hint ♦- di.oldHint; 

ENDCASE; 
-- add segment to original file 

CopyRead[to: tfile, from: tseg. file, nwords: SIZE[FileObject]] ; 
tfile. lock <- tfile. lock - 1; 
tfile. segcount <- tfile. segcount + 1; 

IF tseg.swappedin THEN tf il e. swapcount ♦- tfile. swapcount + 1; 
CopyWrite[from: tfile, to: tseg. file, nwords: SIZE[FileObject]] ; 
-- remove segment from drum file 

CopyRead[to: tfile, from: DDptr . ESV. drumFile, nwords: SIZE[FileObject]] ; 
tfile. segcount <- tfile. segcount - 1; 

IF tseg.swappedin THEN tfile. swapcount ^ tfile. swapcount - 1; 
CopyWrite[from: tfile, to: DDptr . ESV. drumFile , nwords: SIZE[FileObject]] ; 
Wri teUserSegment[useg] ; 
-- update end values and shuffle 
WITH s: di.dseg SELECT FROM 

disk => endHint ♦- s.hint; 

ENDCASE; 
endPage ♦- di .dseg. base; 

DeleteFileSegment[di .dseg] ; -- delete the real debugger segment 
Shuf f leDrum[di .next] ; 
SystemDef s . FreeHeapNode[di] ; 
RETURN 
END; 

CodeOnDrum: PROCEDURE [co: CodeObject] RETURNS [BOOLEAN] » 
BEGIN 

di: DrumltemHandle; 
FOR di ^ diHead. di.next UNTIL di = NIL DO 

IF di.co - CO THEN RErURN[TRUE] ; 

ENDLOOP; 
RETURN[FALSE]; 
END; 

ShuffleDrum: PROCEDURE [di: DrumltemHandle] » 

•-- Starting with di, shuffle segments to lower addresses on the drum 
-- and update the user's copies 
BEGIN OPEN SegmentDefs; 
seg: FileSegmentHandle; 
useg: FileSegmentHandle; 
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UNTIL di " NIL DO 

Swapln[seg ^ di .dseg]; 
useg <- ReadUserSegment[di .useg]; 
useg.base ♦- seg.base ^ endPage; 
WITH s: seg SELECT FROM 

disk »> s.hint *- endHint; 

ENDCASE; 
WITH u: useg SELECT FROM 

disk => u.hint *- endHint; 

ENDCASE; 
Wri teUserSegment[di .useg]; 
endPage ♦- endPage + seg. pages; 
Un1ock[seg] ; 
SwapOut[seg] ; 
WITH s: seg SELECT FROM 

disk => endHint ♦- s.hint; 

ENDCASE; 
di <" di . next; 
ENDLOOP; 
END; 

RemoteSegment: PUBLIC SIGNAL [seg: FileSegmentHandle] = CODE; 

MapUserSegment: PUBLIC PROCEDURE [useg: FileSegmentHandle] RETURNS [seg: FileSegmentHandle]' 
-- Return a segment in the debugger space for the given user segment 
BEGIN OPEN SegmentDefs; 
tempseg: FileSegmentHandle; 
localfp: AltoFileDefs.FP; 
tempseg <- ReadUserSegment[useg] ; 
CopyRead[ 

from: @tempseg. f ile.fp, 

to: ©localfp, 

nwords: SIZE[A1 toFi leDef s . FP]] ; 
seg <- NewFileSegment[ 

InsertFile[@localfp, Read], temp seg. base, tempseg . pages , Read] ; 
WITH s: seg SELECT FROM 

disk => 

s.hint *- WITH t: tempseg SELECT FROM 
disk => t.hint, 
ENDCASE => FileHint[AltoFileDefs.eofDA. 0]; 

ENDCASE; 
RETURN 
END; 

InitializeDrum: PUBLIC PROCEDURE =« 
BEGIN 

next: DrumltemHandle; 
UNTIL diHead = NIL DO 

next <- diHead. next; 

SegmentDefs. DeleteFileSegment[diHead . dseg] ; 

SystemDef s . FreeHeapNode[ diHead] ; • 

diHead ♦- next; 

ENDLOOP; 
drumFile *- DDptr .DebuggeeFH; 
endHint *- [Al toFileDef s.eofDA, 0]; 
endPage *- 256; -~ after core image 

SegmentDefs.SetEndOfFile[ drumFile, en dPage+19,AltoDefs. By tesPerPage]; 
RETURN 
END; 

ReadCodeByte: PUBLIC PROCEDURE [gframe: Global FrameHandle, pc: BytePC] 
RETURNS [BYTE] = 
BEGIN 

iword: InstWord; 
Ipc: LONG POINTER; 
patched: BOOLEAN ^ FALSE; 
LocateCode[ gframe] ; 
Ipc ♦- gfCache. p . lp+pc/2; 
IF DDptr. onDO AND DDptr . ESV. extension . type » pilot THEN 

[patched, iword] *- CheckPatchTable[lpc]; 
IF (gfCache.in OR gfCache.seg = NIL) AND -patched THEN 

iword +- LongRCAD[lpc] 
ELSE 

IF gfCache.seg ff NIL THEN 
BEGIN OPEN SegmentDefs; 
useg: FileSegmentHandle = ReadUserSegment[gfCache. seg] ; 
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WITH useg SELECT FROM 

remote => ERROR RenioteSegment[gFCach8. seg] ; 
ENDCASE; 
Swapl n[gfC ache. d seg] ; 

iword +- ( F ileSegmentAdd res s[gf Cache. ds8g]+gFCache.off set+pc/2)t ; 
Unlock[gfCache.dseg]; 
END; 
RETURN[IF pc MOD 2 » THEN iword . evenbyte ELSE iword . oddbyte] 
END; 

WriteCodeByte: PUBLIC PROCEDURE [ 

gframe: GlobalFrameHandle, pc: BytePC, b: BYTE] « 

BEGIN 

iword: InstWord; 

even: BOOLEAN; 

pi: POINTER TO InstWord; 

co: CodeObject; 

IF DDptr.onDO AND DDptr . ESV . extension . type - pilot THEN 

WritePi1otCodeByte[gframe, pc, b]; 
even <- pc MOD 2 « 0; 
CO <- GFtoCode[gf rame] ; 

IF '-CodeOnOrum[co] THEN MoveToDrum[gf rame, co]; 
LocateCode[ gframe] ; 
IF gfCache.in OR gfCache.seg « NIL THEN 

BEGIN 

iword *- LongREAD[gfCache.p. lp+pc/2]; 

IF even THEN iword .evenbyte ♦- b ELSE iword. oddbyte ♦- b; 

LongWR I TE[gf Cache. p. lp+pc/2, iword]; 

END; 
IF gfCache.seg # NIL THEN 

BEGIN OPEN SegmentDefs; 

useg: Fil eSegmentHandle = ReadUserSegment[gfCache. seg] ; 

WITH useg SELECT FROM 

remote => ERROR RemoteSegment[gfCache. seg] ; 
ENDCASE; 

gfCache . dseg .write <- TRUE; 

SwapIn[gfCache.dseg]; 

pi ^ FileSegmentAddress[gfCache.dseg]+gfCache.off set+pc/2; 

IF even THEN pi. evenbyte ♦- b ELSE pi. oddbyte ^ b; 

Unlock[gf Cache. dseg]; 

END; 
RETURN 
END; 

WritePilotCodeByte: PUBLIC PROCEDURE [ 

gframe: Global FrameHandle. pc: BytePC, b: BYTE] = 
BEGIN OPEN VMMapLog; 
iword: InstWord; 
even: BOOLEAN = pc MOD 2=0; 
Ipc: LONG POINTER; 
mempage: CARDINAL; 
patched: BOOLEAN; 
pte: PatchTableEntry ; 

pti, ptlimit, ptmaxlimit: PatchTableEntryPointer; 
desc: LONG POINTER TO Descriptor <- DDptr .ESV. mapLog; 
pt: LONG POINTER TO PatchTable; 
Ibp : Pate hTableEntryBasePo inter ; 

LongCopyRead[to:@pt, f rom:@desc. patchTable , nwords: SIZE[LONG POINTER]]; 
Ibp ^ LOOPHOLE[©pt.entries[0]]; 
ptlimit <- LongREAD[@pt. limit]; 
ptmaxlimit <- LongREAD[§pt .maxLimit] ; 
LocateCode[ gframe]; 
Ipc <- gfCache. p. lp+pc/2; 
[patched , iword] <- CheckPatchTable[lpc] ; 
IF -patched THEN iword ^ LongREAD[lpc] ; 
IF even THEN iword .evenbyte *- b ELSE iword .oddbyte <~ b; 
FOR pti ^ FIRST[PatchTableEntryPointer], pti+SIZE[PatchTableEntry] 
UNTIL pti = ptlimit DO 

LongCopyRead[to:@pte. from:@lbp[pti], nwords : SIZE [PatchTableEntry ]] ; 
IF pte. address = Ipc THEN EXIT; 
REPEAT FINISHED «> 

BEGIN 

IF ptlimit « ptmaxlimit THEN ERROR DebugMiscDefs .CommandNotAl lowed ; 

LongWRITE[@pt. limit, p bl imi t+SIZE[PatchTabl eEn try]] ; 

pte. address <- Ipc; 
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END; 

ENDLOOP; 
pte. value <- iword; 

LongCopyWrite[f rom:0pte, to:61bp[pti] , nworcis :SIZE[PatchTabl0Entry]] ; 
mempage ^ In! ineDefs . LongDiv[L00PH0LE[1pc] , AUoDef s.PageSize] ; 
IF DebugCacheDef s .Swappeclln[mempage] THEN 

DebugCacheDefs.LongWRITEClean[lpc, iword]; 
RETURN 
END; 

CheckPatchTable: PUBLIC PROCEDURE [Ip: LONG POINTER] 
RETURNS [BOOLEAN, InstWord] - 
BEGIN OPEN VMMapLog; 
pte; PatchTableEntry; 
pti, ptlimit: PatchTableEntryPointer ; 
desc: LONG POINTER TO Descriptor <- DDptr . ESV.mapLog ; 
pt: LONG POINTER TO PatchTable; 
Ibp: PatchTableEntryBasePointer ; 

LongCopyRead[to:@pt, f rom:@desc. patchTable, nwords: SIZE[LONG POINTER]]; 
Ibp <~ LOOPHOLE[@pt.entries[0]]; 
ptlimit ^ LongREAD[@pt. limit]; 
FOR pti <- FIRST[PatchTab1eEntryPointer], pti+SIZE[PatchTab1eEntry] UNTIL pti = ptlimit DO 

LongCopyRead[to:@pte, from:@lbp[pti], nwords : vSIZE[PatchTableEntry]] ; 

IF pte. address = Ip THEN RETURN[TRUE, pte. value]; 

ENDLOOP; 
RETURN[FALSE,[0,0]] 
END; 

COCacheObject: TYPE = RECORD [ 
gf: Global FrameHandle. 
code: CodeObject]; 

coCache: COCacheObject <- [NIL,]; 

GFtoCode: PUBLIC PROCEDURE [f: Global FrameHandle] RETURNS [CodeObject] » 
BEGIN OPEN LoadStateDefs, coCache; 
cgfi: GFTIndex; 
bcdseg: FileSegmentHandle; 
bed: LoaderBcdUtilDefs .BcdBase; 

FindModuleSeg: PROCEDURE [mth: BcdDef s .MTHandle, mti: BcdDef s .MTIndex] 
RETURNS [BOOLEAN] « 
BEGIN 
IF cgfi IN[mth.gfi . .mth.gfi+mth.ngfi) THEN 

BEGIN code.seg ^ mth. code. sgi ; RETURN[TRUE]; END; 
RETURN[FALSE]; 
END; 

BEGIN OPEN DebugContextDefs, LoaderBcdUtilDefs; 

IF coCache. gf = f THEN RETURN[code] ; 

[] *- InputLoadState[ 1 LoadStatelnval id => GOTO noContext]; 

[cgf i ,code. conf ig] *- MapRC[ 

IF VirtualGlobalFrame[f]. copied THEN FindOrig inal [f ] ELSE f]; 
IF code.config = ConfigNull THEN ERROR Inval idGlobal Frame[f ]; 
IF code.config ^ DDptr. config OR DDp tr . initBCD THEN 

BEGIN 

bed ♦- SetUpBcd[bcdseg ♦- BcdSegFromLoadState[code.conf ig]]; 

[] <- EnumerateModuleTable[bcd , FindModuleSeg]; 

ReleaseBcdSeg[bcdseg] ; 

END 
ELSE 

BEGIN 

bed ♦- DAcquireBcd[] ; 

[] <- FnumerateModuleTable[bcd, FindModuleSeg]; 

DReleaseBcd[]; 

END; 
ReleaseLoadState[]; 
EXITS 

noContext «> ERROR DebugMiscDefs .CommandNotAl lowed; 
END; 

coCache. gf ^ f; 
RETURN[code] 
END; 

FrameCacheObject: TYPE = RECORD [ 
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gf: GlobalFrameHandle, 

seg; FileSegmentHancne, 

p: LA, 

in: BOOLEAN, 

offset: CARDINAL, 

dseg: FileSegmentHancne]; 

gfCache: FrameCacheObject ^ [NIL,,,,,]; 

FlushCodeCache: PROCEDURE - 
BEGIN 
IF gfCache.gf § NIL AND gfCache.dseg if NIL THEN 

SegmentDef s . Del eteFileSegnient[ gfCache.dseg]; 
gfCache.gf <- NIL; 
RETURN; 
END; 

FlushCodeSegmentCache: PUBLIC PROCEDURE - 
BEGIN 

FlushCodeCache[] ; 
coCache.gf ♦- NIL; 
RETURN; 
END; 

-- copied from GlobalFrameDef s .mesa 

GlobalFrame: TYPE = MACHINE DEPENDENT RECORD [ 
gfi: [0..777B], 

unused: [0..1], -- reserved for future gfi expansion 
copied, alloced, shared, started: BOOLEAN, 
trapxfers, codelinks: BOOLEAN, 
code: FrameCodeBase, 
global: ARRAY [0..0) OF UNSPECIFIED]; 

FrameCodeBase: TYPE = MACHINE DEPENDENT RECORD [ 
SELECT OVERLAID ♦ FROM 
in => [ 

SELECT OVERLAID * FROM 
codebase => [ 

codebase: LONG POINTER], 
shortCodebase => [ 

shortCodebase: UNSPECIFIED, 
highHalf; CARDINAL], 
ENDCASE], 
out »> [ 

offset: CARDINAL, 
handle: POINTER], 
either => [ 

filll: [0,.77777B], 
swappedout: BOOLEAN, 

highByte, topByteOf LongPointer: [0..377B]], 
ENDCASE]; 

CodeFile: PUBLIC PROCEDURE [f: GlobalFrameHandle] RETURNS [FileHandle] ^ 
BEGIN 

co: CodeObject <- GFtoCode[f]; 
di: DrumltemHandle; 
fp: AltoFileDefs.FP; 
LocateCode[f]; 

IF gfCache.dseg = NIL THEN RETURN[NIL]; 
FOR di ^ diHead, di.next UNTIL di « NIL DO 
IF di.co = CO THEN 

BEGIN OPEN SegmentDefs; 

IF di.oldFile = NIL THEN RETURN[NIL]; 

CopyRead[f rom: @di .oldF i le. f p , to: 6fp, 

nwords: SIZE[A1 toFileDef s , FP]] ; 
RETURN[InsertFile[@fp, Read]] 
END; 
ENDLOOP; 
RETURN[gf Cache. dseg. file] 
END; 

LocateCode: PROCEDURE [f: GlobalFrameHandle] » 
BEGIN OPEN SegmentDefs. gfCache; 
gf: GlobalFrame; 
IF gfCache.gf = f THEN RETURN; 
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FlushCodeCach0[]; 
gfCache.gf <- f; 
in ^ TRUE; 

p ♦- LOOPHOLE[InlineDefs.LongMun[DDptr.mdsContext, AUoDef s. PageSize]]; 
seg ^ NIL; 
offset *- 0; 

CopyRead[f rom: f, to: @gf, nwords: SIZE[Globa1 Frame]] ; 
IF gf .code . swappedout THEN gf .code, swappedout <- in <- FALSE; 
IF gf .code.highByte # THEN 
BEGIN 

seg <- gf. code. handle; 
IF in THEN 
BEGIN 

p. low <- gf .code. shortCodebase; 

offset <- gf. code. ShortCodebase - LOOPHOLE[AddressFromPage[ReadUserSegment[seg] .VMpage] , CARDINA 
**L]; 

END 
ELSE offset <- gf . code.of f set ; 
END 
ELSE 
BEGIN 

table: BootDef s.SystemTableHandle = DDptr. ESV. tables; 
p.lp *- gf . code.codebase; 

IF table # NIL AND gf . code. topByteOf LongPointer = THEN 
BEGIN 

pagemap: POINTER TO BootDef s . PageMap ^ SREAD[@tab1e. pagemap] ; 
page: CARDINAL = PageFromAddress[gf . code. shortCodebase] ; 
seg *- SREAD[6pagemap[page]]; 
in <- TRUE; 
offset ♦- 

gf. code. shortCodebase - LOOPHOLE[AddressFromPage[ReadUserSegment[seg] .VMpage] , CARDINAL]; 
END; 
END; 
dseg ^ IF seg ^ NIL THEN MapUserSegment[seg] ELSE NIL; 
END; 

END... 



